G:\Shared drives\MRDC Documents\Website\MRDCL Videos\mrdcl_files\PRE-104\run.stp
start data,
serial number in columns 1-3,
card characters 100,
ds $continent=$4/1,2,
x='Europe;
Asia',
xt='Continent',
ds $gender=$5/1,2,
x='Male;
Female',
xt='Gender',
ds $age=$6/1,2,
x='Under 35;
35 and over',
xt='Age',
dm $q1=$7-11,e,
x='Brand A;
Brand B;
Brand C;
Brand D;
Brand E;
None of these',
xt='Q1 Brands bought',
dm $q2(7),
x='Good product;
Good taste;
Good packaging;
Easily available;
Good value;
Good offers;
Like the advertising',
xt='Q2 Reasons for liking Brand A',
dm $banner=$continent,$gender,$age,
x='Continent\' + $continent + 'Gender\' + $gender + 'Age\' + $age,
if $iobs/1,m$q2/b.1.2.3,
if $iobs/2,m$q2/b.1.3.5.7,
if $iobs/3,m$q2/b.1.2.3.4.5.7,
if $iobs/501,m$q2/b.2.5,
if $iobs/502,m$q2/b.2.4.6.7,
if $iobs/503,m$q2/b.1.7,
if $iobs/504,m$q2/b.4.5.6,
if $iobs/501,m$q1/b.1,
ds $q3=$12-13/1,2,3,4,5,6,7,8,9,10,
x='
Brand 1;
Brand 2;
Brand 3;
Brand 4;
Brand 5;
Brand 6;
Brand 7;
Brand 8;
Brand 9;
Brand 10
',
xt='Favourite Brand',
finish data,
start tables,
select banner $banner,
f=uch,
t#1=$q1 *,
t#2=$q2 *,
if $continent/1,t#3=$gender * $age,
bt='Europe sample',
t#4(f=brs)=$q3 *,
finish tables,
